home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / data / aka / aka_.plp next >
Text File  |  1994-11-16  |  1KB  |  55 lines
  1.  
  2. /* SetPF-Pilot 『 赤巻紙 』ｻﾌﾞﾊﾟｲﾛｯﾄ */
  3.  
  4. [a]
  5. %nup   {[n]
  6.     crchg ({No});
  7.     var n2    [@nochar(n)+1];
  8.         n2 := n;
  9.     loop({
  10.           case(@head(n2,{n})<>n2,
  11.            {Yes},{n2 := @head(n2,{n})|{N}|@body(n2,{n});im({Yes});},
  12.            {No} ,{im({No});},
  13.            );
  14.           });
  15.     crchg ({Yes});
  16.     im(n2);
  17.     };
  18. %getcdir2 {case(@tail(@getcdir,{\}),{},{getcdir;},,{im(@getcdir|{\});},);};
  19. /******************* Copy コマンド *******************************************/
  20. %copy  {footnote({ Copy コマンド  複写するファイルを指定してください});
  21.     %f @filesel;
  22.     %f @nup(f);
  23.     %f @tail(f,{\});
  24.     %e @getcdir2;
  25.     case(f,
  26.          {},,
  27.            ,{footnote(
  28.                { Copy コマンド  複写先に移動してクリックしてください});
  29.          filesel;
  30.          case(e,@getcdir2,,,{command({Copy }|e|f);},);
  31.          },
  32.          );
  33.     };
  34.  
  35. /******************* Move コマンド *******************************************/
  36. %move  {footnote({ Move コマンド  移動するファイルを指定してください});
  37.     %f @filesel;
  38.     %f @nup(f);
  39.     %f @tail(f,{\});
  40.     %e @getcdir2;
  41.     case(f,
  42.          {},,
  43.            ,{footnote(
  44.                { Move コマンド  移動先に移動してクリックしてください});
  45.          filesel;
  46.          case(e,@getcdir2,,
  47.                  ,{command({Copy }|e|f);command({Del }|e|f);},
  48.               );
  49.          },
  50.          );
  51.     };
  52.  
  53. a;
  54.  
  55.